home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / 3d / raystorm-complete / examples / exa.lha / arexx / logo.ray < prev    next >
Text File  |  1996-07-27  |  1KB  |  62 lines
  1. /***************
  2.  * NAME:        logo.ray
  3.  * DESCRIPTION: Renders the RayStorm logo
  4.  * AUTHOR:      Andreas Heumann
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.     address COMMAND stack 10000
  13.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  14.     address COMMAND stack 4096
  15.     address COMMAND WaitForPort RAYSTORM
  16. END
  17.  
  18. address RAYSTORM
  19.  
  20. 'TEXTUREPATH /textures'
  21. 'OBJECTPATH /objects'
  22. 'BRUSHPATH /brushes'
  23.  
  24. 'SETSCREEN 160 128'
  25. 'SETCAMERA <0,70,1000> <-0.1,70.1,-100> <0,1,0> 26.7 20'
  26. 'SETWORLD [0,0,0] [40,40,40] RANDJIT'
  27. 'POINTLIGHT <-100,100,500> [200,200,200] 30 SHADOW'
  28. 'POINTLIGHT <-200,200,200> [100,100,100]'
  29. 'POINTLIGHT <50,50,150> [100,100,150] FALLOFF=200'
  30. 'POINTLIGHT <-50,-50,150> [240,50,0] FALLOFF=200'
  31.  
  32. 'NEWSURFACE earth'
  33. 'DIFFUSE [240,200,50]'
  34. 'SPECULAR [255,210,60]'
  35. 'REFEXP 30'
  36. 'BRUSH earth_bump.png FILTER WRAPXY <0,95,0> <0,60,0> <1,1,1> SOFT'
  37. 'BRUSH earth_refl.png REFLECT WRAPXY <0,95,0> <0,60,0> <1,1,1> SOFT'
  38.  
  39. 'SPHERE earth <0,95,0> 50'
  40.  
  41. 'NEWSURFACE back'
  42. 'DIFFUSE [200,200,200]'
  43. 'SPECULAR [0,0,0]'
  44. 'IMTEXTURE marble.itx <0,0,-50> <0,0,0> <50,50,50> 190 180 175 0 0 0 0 0 0 6'
  45. 'BRUSH logo.png ALTITUDE FLAT <-50,0,-50> <0,0,0> <100,100,100> REPEAT SOFT'
  46.  
  47. 'PLANE back <0,0,-50> <0,0,1>'
  48.  
  49. 'LOADOBJ logo.iob'
  50.  
  51. 'STARTRENDER'
  52. 'SAVEPIC logo.iff'
  53. 'CLEANUP'
  54.  
  55. exit 0
  56.  
  57. error:
  58. say "Error" rc "in line" sigl ":"
  59. GETERRORSTR rc
  60. say result
  61. exit 0
  62.